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LL 0000 cccccccc KK KK 
LL 000000 cccccccce =KK KK 
LL 0 oo cc KK KK 
LL 00 oo CC KK KK 
LL 00 oo CC KK KK 
LL 00 00 CC Kk K 
LL 00 oo CC KKKKKK 
LL 00 oo CC KKKKKK 
LL 00 oo cc KK KK 
LL 00 oo CC KK KK 
LL 00 oo CC KK KK eee 
LL 00 oo cc KK KK eee 
LLELLLLLLLL 000000 cccccccc KK KK eee 
LLLLLLLLLL 000000 cccccccc KK KK eee 
LL III! SSSSSSSS 
LL HI! SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL HII! SSSSSSSS 
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COPYRIGHT NOTICE 
PROGRAM DESCRIPTION 
DECLARATIONS 
STORAGE DEFINITIONS 
READ-ONLY DATA DEFINITIONS 
SHOW_ALL_LOCKS = ACTION ROUTINE TO DISPLAY ALL LOCKS 
SHOW"ONE-LOCK = ACTION ROUTINE TO DISPLAY ONE LOCK 
SHOW" PROC_LOCK = SHOW LOCKS ASSOCIATED WITH A PROCESS 
GET_CKB ="GET LOCK BLOCK 
SAVE _LOCK_DATA = RETRIEVE LOCK DATA FROM SYSTEM 
DISPCAY_LOCK = CONTROL DISPLAY OF LOCK DATA 
ORMAT_COCK = FORMAT LOCK DATA 
PRINT_COCK = OUTPUT LOCK DATA 
LOCK_COND_H = CONDITION HANDLER FOR SHOW_ALL_LOCKS 
HOW-ALL_RES = ACTION ROUTINE TO DISPLAY ALC RESOURCES 
SHOWONE-RES = ACTION ROUTINE TO DISPLAY ONE RESOURCE 
SHOW_RSB™ = ROL FOR RSB DISPLAY 
SHOW- QUEUES = DISPLAY QUEUES FOR GIVEN RESOURCE 
ORMAT_RSB = FORMAT RSB DATA 
PRINT_RSB = OUTPUT RSB DAT 
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PROCESS QUEUE - TRAVERSE RESOURCE QUEUES 
PRINT_LINE = OUTPUT QUEUE DAT 
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Stites (c) 1978, 1980, 1982, 1984 
DIGITAL at oY CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS” RESERVED 


® 
* 
® 
* 
*® 
THIS . 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS. SOFT OR ANY OTHER * 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TOANY 
OTHER PERSON. TITLE’ TO AND OWNERSHIP’ OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. * 
* 
® 
® 
* 
5 
* 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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~SBTTL PROGRAM DESCRIPTION 
FACILITY 
SYSTEM DUMP ANALYZER 
ABSTRACT 
ROUTINES TO FORMAT LOCK AND RESOURCE INFORMATION 
ENVIRONMENT 
NATIVE MODE, USER MODE 
AUTHOR 


MARYANN HINDEN, JUNE 1982 
MODIFIED BY 


v03-007 preci oy Steve Beckhardt 2-Feb-1984 
Fixed formatting of Directory entry text in SHO RES Line. 
V03-006 SRBO0107 Steve Beckhardt 7-Dec-1983 


Enhanced SHOW Lock. and SHOW RESOURCE to display 
distributed lock information. 


v03-005 precoe? Steve Beckhardt 27-May-1983 
Fixed bug displaying resource name. Added new status bit 
definitions. 
V03-004 proce?’ Steve Beckhardt 16-Mar-1983 


Changed the way system resources are decoded in RSB 
to use zero group number instead of SYSNAM flag. 


v03-003 MSHO003 ayryene Hinden 17-Dec-1982 
Fix broken assume’ 
V03-002 MSHO002 porous Hinden 22-0c t-1982 
Determine empty lock queue correctly in SHOW. PROC LOCK. 


Change lock display - output lock and parent id in hex; 
rearrange format. 


V03-001 MSHO001 Maryann Hinden 16-Jul-1982 
Correct references to LCK$xxxx data structures; change 
condition handling. 
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; OFFSETS INTO SAVED QUEUE DATA 


; SYMBOLIC DESIGNATIONS FOR QUEUE TYPES 
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yOs000 STORAGE DEFINITIONS greee bbe Obigaiae PeRAVeS Macro yoko age 4) 
103 -SBTTL STORAGE DEFINITIONS 
0000 : ¢ : «PSECT SDADATA,NOEXE,WRT,LONG 
} § ; Data area for SHOW LOCKS commands 
1 e 
0 1 § LOCK_COUNT: ; t of k 
00000000 00 0 110 wr wr atXS 0 coun . aa processed 
00000000 094 11g arpsttOns 0 ae ; 
H 5 t 
00000068 el 114 .BLKBLKBSK_LENGTH sel Patio em 
06 116 RSBCSID_BFR: ; CSID in R 
ooooo0ec boss 117 “"BLKL 1 soatkatinn 
aoe 18 LKB SB pre ; resource block gota for given lock 
” : ; group number 
OOOO006E 006C 120 -BLKW 1 
O000006F SoEE 152 RMODABFR: 1 ; aeeeee er 
00000070 Doe : RSNLEN_BFR: ' 3 resource name Length 
0 125 RESNAM_BFR: ; 
00000090 0070 136 -"VBLKB  RSBSK_MAXLEN#1 apes nese 
0090 128 LOCKID:: 3; lock ID tly bei 
00000096 0090 139 rrr oc currently being processed 
B06 ! 1 -ALIGN LONG 
63 GF GC 20 66 6F 900D009C"010E0000" oK4 | FAO-RMINFASCID. “of Lock !XL tem !XL" 
73 79 73 90 6F 6F 20 4C 58 21 20 6B GoA2 eee ee enn 2 
4C 58 21 20 6D 65 74 0085 sa 
bee 136 »ALIGN LONG 
0B8 137 RMINFO_LEN: 
00000000 0088 1 } . 0 
9000050. O0BE 140 NFOWPS re a0 
bo0000e y eco 141 “ADDRESS RMINFO_BFR 
0C4 123 RMINFO_CNT: 
atin bes 128 RMINFO_BFR: 
00000115 00¢ 146 -".BLKB 80 
ei 
i 143 : Data area for SHOW RESOURCES commands 
115 151° 
90000000 i : § RES_COUNT: 0 ; count of resources processed 
00000000 113 ' : QUEUE _COUNT: 0 3; count of queue elements processed 
11D) 1 § RSB_BFR: 3; resource block data 
0000018C 11D 1 -BLKB RSBSK_MAXLEN+RSBSK_LENGTH 


80000000 


LOCK LOCK AND 
VO65000 STORAGE D 
18C¢ 

00000190 } 

00000194 : 
00000198 138 
Hf 
0000019C 138 
0000019F 13 
QOO001A2 0195 
108 
000001AE ine 
57 4F 33 21 000001B6'010E0000" ts 4 
1BA 
000001BD 0Q1BA 
1BD 
1BD 
1¢0 
00000003 01C0 
000001BA' \e 

1¢ 
6D 65 74 73 79 53 000001D0'010E0000' \d 
te 

1D 
00000008 0108 
000001E0' 010¢ 
ig 
20 20 20 70 75 6F 72 47 O1ED 
000001EB 168 
18 
1€8 
18 
1€8 
1€8 
18 
1EB 
tite 1EB 
000000 if 

1F 
0000 i 

Sunes fi 
1FB 
1FB 

1F 

1F 

1F 
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FAO data storage for RESOURCE display 


R 
T 
13 ire F , current index into hash table 
16 HTBL_CNT? , ; size of hash table 
i COUNT: pea , ; # queue items to display 
198 QUEUE _TYPE: ; ; type of queue being processed 
166 GRMD_BFR: ; ; grant mode 
186 ROMD_BFR: : ; requested mode 
176 LKID_BFR: : ; lock id 
1% FAO_GROUP_DSC: 
Wi eASCID ‘'!30w"" 
175 GROUP_BUF : 
176 -BLKB 3 
178 »ALIGN LONG 
179 GROUP_BUF DSC: 
18% ADDRESS GROUP _BUF 
1 : SYS_DSC: 
: : -ASCID ‘‘System'’ 
1 $ -ALIGN LONG 
1 GROUP_DSC: 
1 3 -LONG 11 
137 - ADDRESS GROUP _TXT 
191 GROUP_TXT: 
13 -ASCII “Group “" 
193 GROUP_NUM: 
194 -BLKB 3 
13 
i 
19 
3; line 1 
§ RSB: - LONG 8 ; Address of RSB 
7 GGMOD: .LONG ; Group grant mode (addr of ASCIC string) 
5; Line 2 
$ PRSB: - LONG ; Address of parent RSB 
CGMOD: .LONG ; Conversion grant mode (addr of ASCIC string) 
} : line 3 
1% SRSBCT: .LONG 8 ; Sub-RSB reference count 
17 BAST: - LONG ; Blocking AST count 


F 
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18 

18 

18 

18 
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8 

8 

44444445 8 

0000000 F 

000000 ; 
000000 
000000 

00000 F 

4 

& 

4 

4 

4 

48 

rs 

57 

57 

5B 

58 

58 

58 

2 

e7 

68 

6F 


EF 
ONS 
i ; Line 4 
i$ VAL4: ~ LONG 
18 VALS: ~ LONG 
19 VAL: -LON 
VAL: LONG 
SEQNUM: .LONG 
§ VALID: .LONG 
: : line § 
§ RESN » LONG 
RESN «LONG 
8 LONG 
3 BUF 1 ~ LONG 
1; Line 6 
: RESNLEN: .LONG 
4 RESN4: .LONG 
5 RESNS: LONG 
$ ~ LONG 
BUF 2: LONG 
8 CSID: LONG 
re ; line 7 
2g RACMOD: .LONG 
45 RESN6: LONG 
44 RESN LONG 
45 ~ LONG 
m4 BUF 3: LONG 
47 DIRENTRY: 
rt ~ LONG 
29 ; line 8 
2g RNSPACE: .LONG 
53 RESN8: .LONG 
ee RESN7: .LONG 
5 LONG 
2$ BUF4: LONG 
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Value block Longword #4 

Value block lLongword # 

Value block longword # 

Value block longword # 

Sequence number 

Value block valid (addr. of .ASCIC string) 


Fyconé longword of resource name 
rs 


Count of ASCII string 
Text of resource name (addr of ASCII string) 


Resource name Length 
feyren longword of resource name 
r 


Count of ASCII string 
Text of resource name (addr of ASCII string) 
RSB CSID 


Resource access mode (addr of ASCIC string) 
Siate longword of resource name 


t 
Count of ASCII string 
Text of resource name (addr of ASCII string) 


Directory entry (addr. of .ASCIC string) 


Address of descriptor 

Eighth longword of resource name 

Seventh 

Count of ASCII string 

Text of resource name (addr of ASCII string) 
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¥0c~000 STORAGE DEFINITIONS Seem ISB Ohi 8b:28 PENAVES Sacre yee~ oie 
F 59 ; 
: ; FAO data storage for LOCKS display 
F oO 
: Z : LINE 1 
00 F 5 LKID LONG 3; Lock id (value) 
4 ; 96 PID: . LONG 3; PID (value) 
7 67 FLAGS1: .LONG ; First Line of flags (addr. of .ASCIC string) 
0 B88 78 of ~ LONG a. OT, Spe 
00 0 7F § ~ LONG : a a oe Lad 
r : LINE 2 
44 8 PARID: .LONG ; Parent id (value) 
00000 74 STATE1: .LONG ; Lock state info (address of .ASCIC string) 
si 4 75 LONG ; Lock mode (Length of otrinn} 
4 4944 of 6 MODE1: .LONG 3 Lock mode (address of .ASCII string) 
0 ; 77 FLAGS2: .LONG ; Second Line of flags (addr. of .ASCIC string) 
000 B80 9 re - LONG 3 on i aan 
00000000 4 LONG 0 3 se a ge 
4 } : «LINE 3 
t+ 43 oF : syeLcS: LONG ; Sublocks (value) 
000000: 3 4 STATE2: .LONG 3 More lock state info (addr. of .ASCIC string) 
444 A 5 LONG 3; More lock mode (length of string) 
00000 AB § MODE2: .LONG 3; More lock mode ( addr. of .ASCI Myr 
00000 AF FLAGS3: .LONG ; Third Line of flags (addr. of .ASCIC string) 
00000 BS 38 «LONG QO ee a ates 
000000 a 34 -LONG 0 m, eg ee 
4 $3 : LINE 3A 
00000000 BB 93 BLKAST: .LONG 0 ; Blocking AST (address of .ASCIC string) 
50000000 BE 394 LK "CONG =O : Address sof LKB . 
: 38 : LINE 4 
tit C 98 RES2:  .LONG : Second longword of resource name (value) 
4 oe + RES1: Thee ; First longword of resource name (value) 
00 CF 1 DMP1:  =LONG : First Line of text name (.ASCII string) 
4 +] § STS1: LONG 3; Ist Line of status (addr. of .ASCIC strings) 
D - LONG 
00 4 : LONG 
+4 $ 3 LINE 5 
DF 3 RLEN: LONG 3; Resource name length (value) 
es RES4:  .LONG : Fourth longword of resource name (value) 
A + RES3: pee ; Third lLongword of resource name (value) 
EF 1 vit} LONG 3 second Line of text name (.ASCII string) 
rs 15 STSe: LONG 3; end Line of status (addr. of .ASCIC strings) 
F 14 LONG 
FB 15 LONG 
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105-000 STORAGE DEF INI TIONS ae a eaet: YODA YSRCTCOCK MARES ° 
FF 16 
AA ! i LINE 6 
FF 19 ACMODE: .LONG eqcepe mode (Address of .ASCIC string) 
; Ree: - LONG Sixth longword of resource name (value) 
RES5: Lees Fifth Longword of resource name (value) 
§ DNPS “LONG Third Line of text name (ASCII string) 
' ¢ STS3: “Lb eee rd Line of status (addr. of .ASCIC strings) 
0 18 $ : LONG 
1F 
+ 4 3 3; LINE 7 
O88 4 1F Q NSPACE: .LONG 3; Name space (group/system) (addr. of desc.) 
; 1 444 F «LONG ; Eighth longword of resource name (value) 
BS B28 . § RES Lees ; Seventh longword of resource name (value) 
§009000 F : DMP7: LONG ; Fourth Line of text name (.ASCII string) 
; § ; LINE 8 
00000000 03 8 TYPE: .LONG 0 ; Lock type (addr. of .ASCIC string) 
00000000 83 i ib RMINFO: .LONG 0 ; Remote info (addr. of .ASCIC string) 
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#Granted queue (Lock ID / Gr mode):# 
#Waiting queue (Lock ID / Rq mode):# 
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LKMODE_TBL: 


FUN O OONOUS Wins O Oo 
ef 8 
>>>> >> 
ANNUM 
AOOOOW 
Oe be ht Pe me 
Dee been pet Bs ee 


RECN SCENT Looe 


96 NULL:  .ASCIC 
397 CREAD: .ASCIC 
398 CWRITE: .ASCIC 
399 PREAD: .ASCIC 
400 PWRITE: .ASCIC 
401 EX: .ASCIC 
402 
403 GR_STRING: 
404 ~ASCIC 
405 CV_STRING: 
406 .ASCIC 


407 WT_STRING: 
408 -ASCIC 


409 
¢} BLANKS: .ASCII 


NULL _ sieht 4 
ScIc 


41 
i 

414 

415 BL_STRING: 

416 -ASCIC 
i 

i 


FLAGS_TBL: 
-ASCIC 
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Date 


'W e 


“Granted at"’ 


“Converting to’ 


“Waiting for’ 


“BLKAST" 


"VALBLK "* 
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; POINTERS TO MODE TEXT 


Page 19, 


Bia 55S SANE FRINGLE MOIS SEEBES LAER HRC are 9 
54 52 45 56 4E 4F 43 420 eASCIC "CONVERT" 
45 55 45 55 51 4F 4E 421 «ASCIC = ‘'NOQUEUE"’ 
53 54 53 43 4E 59 53 422 »ASCIC "'SYNCSTS' 
20 4D 45 54 53 59 53 423 -ASCIC ‘SYSTEM "’ 
41 54 4F 55 51 4F 4E «ASCIC "'NOQUOTA’’ 
20 53 59 53 54 56 43 425 sASCIC ‘'CvTSYS * 
52 45 56 4F 43 45 52 426 +ASCIC "RECOVER" 
54 43 45 54 4F 52 50 427 -ASCIC ‘PROTECT’ 

i3s STATUS_TBL: 
54 53 41 4C 50 43 44 0 «ASCIC ‘‘DCPLAST"’ 


54 53 41 4B 4C 42 44 
20 20 43 4E 59 53 41 0 ‘ 
44 51 54 53 41 4C 42 00° 
20 59 50 43 54 53 4D 

41 54 4F 55 51 4F 4E Bo" 

51 54 55 4F 4D 49 54 00° 
20 53 59 53 53 41 57 00° 
53 59 53 4F 54 56 43 8° 


431 -ASCIC ‘'DBLKAST"’ 
432 -ASCIC “‘ASYNC °° 
433 -ASCIC ‘‘BLASTQD"" 
434 -ASCIC ‘“MSTCPY "’ 
435 -ASCIC ‘'NOQUOTA"’ 
436 -ASCIC “'TIMOUTQ"’ 
437 -ASCIC ‘WASSYS *' 
-ASCIC “'CvTOSYS"' 


PWDDSS >> OO 

> Pron} Sony Prony} Pron 
5 x 

~ w 

oo @& 


LOCAL: .ASCIC ‘“‘Local"’ 
rye} PROCESS: 


@ 
pa 


73 73 65 63 6F 72 50 00° 


ASCIC ‘'Process" 
72 65 74 73 61 4D 00° 


443 MASTER: .ASCIC ‘Master'' 


SPACE: .ASCIC “* 
64 69 6C 61 76 20 74 6F 4E 9" eASCIC "Not valid” 


DIR_ENTRY: 


444 
445 
rr 
447 NOT_VALID: 
448 
449 
450 ASCIC ‘Directory entry" 


65 20 79 72 6F 74 63 65 ie $3 44 Q0' 
79 72 


ooo SOOOCOOCOOCOOOOOOCOOoOO MoO 
NO NONONONONONONONON ro 
SOOOSSOSCOOC COCO SOOOSOOOOCOOOOOOOOOOOOOOOOOO 
RIP IPIPIPIPIHIPIPIPIPIPIPIPIPIPIPIPIPININIPIPIPIPIPIPIPIPINIMPPIPIPIPIPIPIPIPYPIPIPIPIPIPIPIPIPIPUPIPUPIPIPIPNTYD 
OOOO 09 09 09 NINN NOP PAO TB BS EAA 
PS PNrNyyv y} Hronvyy Srrvy Prrvy Frwy ~< 
yo oP = 
™~ 
Ed 


OW VOD 22 oon nWMODooO 


MOMOVOTVOTVVIIOOOOoOooo 


04-000 READ- 
65 64 6F 6D 20 6C 65 6E 72 65 48 
65 64 6F 6D 20 2E 63 65 78 45 

65 64 6F 6D 20 2E 72 65 70 75 53 
65 64 6F 6D 20 72 65 73 55 


452 KMODE: .ASCIC ‘Kernel mode"’ 
453 EMODE: .ASCIC ‘Exec. mode"’ 
454 SMODE: .ASCIC ‘Super. mode"’ 
455 UMODE: .ASCIC ‘User mode"' 


WODOrF OVS 
OOOOCOOOOCOCOOOCOCOOSO CPF 


4 

4 5 sALIGN LONG 

458 ACMODE_TBL: 

4 : press KMODE 
rh «ADDRESS EMODE 
4 - ADDRESS SMODE 
if ‘ 


mM 5 
A DEFINITIONS SUMS STREb GBs Bbidic6 


AX/VMS Macr 


) ¥04~00 
SDA.SRCJLOCK.MAR; 


re i 


LOCK LOCK AND RESOURCE FORMATTING RouTines 16-SEP=1 YAX/Vis Macro V04-00 Page 13 LOC 
v04-000 SHOW_ALL_LOCKS = ACTION ROUTINE TO DISPL g-8 “5 p= 138 83 33:78 ESD AY SRCILOCK.MAR; 9 - & v04 
ifs eas  SBTTL SHOW ALL_LOCKS = ACTION ROUTINE TO DISPLAY ALL LOCKS 
467 : 
i SHOW_ALL_LOCKS 
470 : PURPOSE 
4g ; ACTION ROUTINE FOR THE ''SHOW LOCKS/ALL'’ COMMAND 
138 : INPUT 
47% ; NONE 
475 ; 
£28 3 OUTPUT 
477 : DISPLAYED DATA 
or 
0000 j 4 6 ; .ENTRY SHOW_ALL_LOCKS, “M<> 
6D OO0009EB'EF  9€ 8 A 4 é MOVAB LOCK_COND_HAND, (FP) : ESTABLISH CONDITION HANDLER 
00000090 EF D4 ng CLRL OCKID : INITIALIZE VARIABLE 
FCCS CF OOF 7 484 PUSHAB LOCK_HEAD + GET HEADER 
00000000 EF 01 FB 0338 485 CALLS #1,SET_HEADING : SET IT UP 
O0000000'EF D4 3 4 : CLRL — LOCK_COUNT : INIT COUNT OF LOCKS PROCESSED 
0348 488; 
038 rt 3; STEP THROUGH LOCK ID TABLE, DISPLAYING ENTRIES WITH DATA 
ri ae FF D6 348 491 10s: INCL LOCKID ; INCREMENT INDEX 
0000044 0 FB 0 aE 49¢ CALLS #0,GET_LKB : GET ADDRESS OF ASSOCIATED LKB 
050 €9 0355 49 BLBC Ose 0s" : IF LBC, NON-EXISTENT, TRY NEXT 
09000000" F D6 0398 494 INCL LOCK : GOT ON 
0000048 99 FB OO 3E 495 CALLS #0, SAVES Nock DATA : GET ASSOCIATED DAT 
inttitaee Ef FB 036 496 CALLS #0,DISPCAY_LOCK + DISPLAY DATA FOR T HIS L CKID 
11 036C 497 BRB 10$ : LOOP (SIGNAL WILL EXIT. POR US) 


B 6 : 
LOCK LOCK AND RESOURCE FORMATTING ROUTINES 16-SEP-1984 01:31:38 VAX/VMS Macro V04-00 Pa 14 Lt . 
1Oe000 SHOW_ONE_LOCK = ACTION ROUTINE TO DISPLA eta 94:33:28 Lee cHeGce Manes ” th v04 
499 eat .SBTTL SHOW_ONE_LOCK = ACTION ROUTINE TO DISPLAY ONE LOCK 
E 1: 
i: : SHOW_ONE_LOCK 
6E 4 : PURPOSE 
6 5 ; ACTION ROUTINE TO PROCESS ''SHOW LOCK Lockid'’ COMMAND 
6E 2 > INPUT 
6E 8 ; LOCKID = INDEX INTO LOCK ID TABLE 
GE 19 : OUTPUT 
E ; DISPLAYED DATA 
ee 
0000 O3E 1% .ENTRY SHOW_ONE_LOCK,*M<> 
00000443'EF 00 FB 0370 16 CALLS #0,GET_LKB : GET LOCK BLOCK ADDRESS 
2150 +€9 0377 at BLBC RO. 108 : IF LBC, NO LOCK BLOCK FOR ID 
00000487"EF 00 FB 374 519 ALLS #0,SAVE_LOCK_DATA : SAVE LOCK DATA 
00000000°EF = 61 4 385 3 ° Chere. i? SET HEADING eel cerciicaeateae: 
0000051D'EF 00 FB O38 3 é CALLS #0,D0ISPLAY_LOCK : DISPLAY LOCK INFO 
039 STATUS SUCCESS : SUCCESSFUL COMPLETION 
04 039A 524 RE 
398 525 
0398 526 10S: SI 
04 O3AD 527 RE 


| 
T 
ates 0,NOLKB ; NO LOCK BLOCK FOR THIS ID 
| 
| 


53. 00000040 
00000487 'EF 


00000556"°EF 00 


00000856"EF 00 
52 


oo 


AARP AAA AA OMNIA BBE EERE PEEWWAA ES 
SODWNAWNE WN O ODNAUN EWN O OD NAUES WN OODNAUSE 


FS PFWWIWIDININ | KS OFMMMOVIOOOOoOWWW 


MOICOOMOOVTS TO UIM— PWNS OF 
PUPV PV DV SUSU SISSY 


E FORMATTING Routines 1 mit hs 04:33:28 yrs Macro yes? Page 


SHOW LOCKS ASSOCIATED W 5-SEP=1 SDA.SRCIJLOCK.MAR; 
~SBTTL SHOW _PROC_LOCK = SHOW LOCKS ASSOCIATED WITH A PROCESS 


aa 
+ 


SHOW_PROC_LOCK 
PURPOSE 


; SHOW LOCKS ASSOCIATED WITH A GIVEN LOCK. CALLED FROM 

; GENERIC CODE WHICH DISPLAYS PROCESS DATA. 

: INPUT 

; 4(AP) = ADDRESS OF PCB COPY IN SDA IMAGE 

; B(AP) = ADDRESS OF REAL’ PCB IN SYSTEM 

: OUTPUT 

; DISPLAYED DATA 

; .ENTRY SHOW_PROC_LOCK,“M<R2,R3> 
MOVL 4 (AP),R3 ; GET ADDRESS OF PCB SAVE AREA 
MOVL  PCBSL’LOCKQFL(R3),R3 =: GET FORWARD Abin 
MOVL a > : GET ''R ADDRESS OF PCB 
MOVAL PCBSL _LOCKQFL(R2) .R2 : GET REAL'' ADDRESS OF HEAD OF QUEUE 
CMPL —-R3,R : ARE THERE ELEMENTS IN THIS QUEUE? 
BEQL NOLCK : IF EQL, NO 


GETLCK: SUBL3 KBSL_OWNQFL,R3,LKB ; ADJUST FOR START OF LKB 


CALLS SAVE_LOCK_ DATA 3 SAVE LOCK DATA 
SKIP Ph AGE 
PRINT Lock data:> 
CALLS #6, FORMAT_LOCK ; FORMAT LOCK DATA 
ENSURE 9 

Ls #0 SPLAY LOCK INFO 


PRINT_LOCK 
R3 


CA DI 
REGHEM (RS) GET NEXT QUEUE LINK 
IF 


@ 

mz x 
ovore 
ee 

L—J 


R3,Re : AT END OF QUEUE? 
ONE 3 50 , DONE 
BRB GETLCK : 
NOLCK: ; THIS PROCESS HAS NO LOCKS 


SIGNAL 0,NOPRLOCK 


SUCCESSFUL 


<= 
RS 


‘* | 
LOCK LOCK AND RESOURCE FORMATTING ROUTINES 16-SEP-1984 01:31:38 VAX/VMS Macro V04-00 Page 1 LOC 
v04=000 GET_LKB = GET LOCK BLOCK met} 83:35:28 USDA SRC IOC Reet . (8) v04 
44 2 .SBTTL GET_LKB = GET LOCK BLOCK 
te 857 
44 73 ; GET_LKB 
44 8 + PURPOSE 
sé 8 ; GIVEN LOCK ID, GET ADDRESS OF LOCK BLOCK. 
44 0: INPUT 
44 1; LOCKID = INDEX INTO LOCK ID TABLE 
44 § : OUTPUT 
44 h; RO = IF LBS, LKB CONTAINS ADDRESS OF LOCK BLOCK 
44 5: IF LBC, NO LOCK BLOCK FOR THIS ID 
gee 
000C 0443 588 ° ENTRY GET_LKB,“M<R2,R3> 
bees 360 
gcd 231 : VALIDATE INPUT 
52 00000090" EF 3¢ 0445 398 ‘ NOVZUL LOCKID,R2 ; MOVE TO REGISTER AND TEST 
er O44E 399 REQMEM “e peeante : GET RAL ID. VALUE 
411A (0461 298 BGTRU 308 : IF GTRU, TOO BIG 
O4e3 899 
46 600 : GET ADDRESS OF LOCK BLOCK 
beg 60¢ ‘ REQMEM @LCK$GL_IDTBL,R3 : GET START OF TABLE 
53 6342 «E04 60 MOVAL CRS) ERTS : CALC SLOT ADDRESS 
0477 604 REQMEM (R3),R : GET LKB ADDRESS 
50 D4 0483 605 CLRL = RO + ASSUME EMPTY SLOT 
Oo0002BF'EF 53 DO 0485 606 MOVL  R3,LKB : MOVE DATA AND TEST 
02 18 048C 607 BGEQ 108 : IF GEQ, NO LKB FOR THIS ID 
50 06 04 BE 608 INCL : INDICATE SUCCESS 
04 0490 610 10$: RET : DONE 
$3 61g 20$: SIGNAL 0,LOCKIDZER : LOCK ID 0 
RE a 
4A4 615 30$: SIGNAL 0,OUTOFRANG ; LOCK ID GREATER THAN MAXID 
04 0486 616 RET 


‘ 
LOCK LOCK AND RESOURCE FORMATTING ROUTINES 16-SEP-1984 01:31:38 VAX/VMS Macro V04-00 P 17 LOC 
404000 SAVE LOCK DATA S RETRIEVE LOCK DATATPROM SoSEPHi9RG Ooidoice PARAWeS Macro yoeno age 10) ve 
487 i es .SBTTL SAVE_LOCK_DATA = RETRIEVE LOCK DATA FROM SYSTEM 
4B7 0: 
4B? 1; SAVE_LOCK_DATA 
487 3 : + PURPOSE 
4B7 624: GIVEN ADDRESS OF LOCK BLOCK, RETRIEVE ALL DATA NEEDED TO 
487 6 5 DISPLAY LOCK INFORMATION 
487 6 5 > INPUT 
487 ; LKB = ADDRESS OF LOCK BLOCK 
487 g : OUTPUT 
487 631: LKB_BFR - CONTENTS OF LOCK BLOCK 
487 6 § : PARTD_BFR = ID OF PARENT LOCK 
4B7 633: LKB_RSB_BFR = DATA FROM ASSOCIATED RESOURCE 
es ee 
000¢ 487 6 : ; .ENTRY SAVE_LOCK_DATA, “M<R2,R3> 
52 000002BF'EF 00 0189 638 MOVL LK R2 
4c0 639 REQMEM (R25,LKB_BFR,#LKBSK_LENGTH ; STORE LKB DATA 
53 00000050" EF p 0405 640 MOVL LKB_BFR+CKBSL_PARENT,R3 ; PARENT KB ADDR 
O4DE 64g REQMEM LKBSL_LKID(R3) ,R3 t FETCH PARENT LOCK ID 
00000004'EF 53 DO O4EB 644 10$:  MOVL  R3,PARID_BFR ; STORE IN BUFFER 
53 00000058'EF D0 O4F 645 MOVL  LKB_BFR+CKBSL_RSB,R3 : GET ASSOCIATED RSB 
bcr9 647 ASSUME RSBSB_RMOD-RSB$W_GROUP EQ : ; MAKE SURE NOTHING CHANGES 
4-9 648 ASSUME RSBSB-RSNLEN-RSBSW_GROUP £0 
479 649 ASSUME RSB$T~RESNAM-RSB$W-GROUP £0 
arg 630 ASSUME RSBSK“MAXLEN EQ <*R1F> 
ri 63¢ REQMEM RSBS$W_GROUP(R3),LKB_RSB_BFR,- ; STORE RSB DATA 
O4F9 3665 #RSBSK PAxL EW 
0508 634 REQMEM RSBS$L_CSID(R3),RSBCSID_BFR : GET CSID IN RSB 
04 051C 656 RET 


ae — 


‘ 
LOCK LOCK AND RESOURCE FORMATTING ROUTINES 16-SEP-1984 01:31:38 YAX/VMS Macro V04-00 
10c<000 DISPLAY_LOCK = CE TROL DISPLAY OF LOCK D gE 1882 84:33:28 YODA ERCITOCR.MARS 4 
1D 658 .SBTTL DISPLAY_LOCK = CONTROL DISPLAY OF LOCK DATA 
4 p+ee 
1p est ; DISPLAY_LOCK 
1D oe8 : PURPOSE 
1p 664 ; CONTROLS FORMAT AND DISPLAY OF LOCK DATA 
a 686 > INPUT 
310 66 3 LOCK DATA AREAS (IMPLIED) 
51D ees > OUTPUT 
1D ; DISPLAYED LOCK INFORMATION 
Hue 
0000 31D e78 , .ENTRY DISPLAY_LOCK,“M<> 
00000556'EF 00 FB ay 679 CALLS #0 FORMAT LOCK ; FORMAT LOCK DATA 
32 $95 ENSURE 10 
545 678 SKIP 
00000856"EF 00 FB 0548 679 CALLS #0,PRINT_LOCK : DISPLAY LOCK DATA 
04 $332 rt RET 


6 
OCK AND RESOURCE FORMATTING ROUTINES 1g 3Ee- 138% 04:93:78 AX/VMS Macro V04-00 Page 19 
ORMAT_LOCK = FORMAT LOCK DATA “SEP=1984 03:32:46 [SDA.SRCILOCK.MAR; 1 (12) 
é é ? ~SBTTL FORMAT_LOCK = FORMAT LOCK DATA 
5; 
° $ ; FORMAT_LOCK 
6 8 : PURPOSE 
689 ; FORMAT RAW SYSTEM LOCK AND RESOURCE DATA. STORE 
2 690 ; FOR EASY ACCESS. 
é 69¢ t INPUT 
5 93 ; LKB_BFR = ADDRESS OF LOCK BLOCK DATA 
2 ? 94 ; PARTD_BFR = PARENT LOCK ID 
6 699 ; LKB_RSB_BFR = ASSOCIATED RESOURCE DATA 
328 $99 : OUTPUT 
556 698 STORED DATA 
220 344 5 
i ioe 
22 re .ENTRY FORMAT_LOCK,“M<R2,R3,R4,R5,R6> 
32 Pee ; Lock id., parent id., sublocks and PID 
56 000000 BEF 3 55 706 MOVAB LKB_BFR,R6 
00000288 EF” Ob000004'EF bd Oser FOR ROVE BART DER BRR yBE Nee 
QOOOO29F'EF  4C Ab Re $893 709 MOVZWL LKBSWIREFCNT(R6) ,SUBLKS 
00000273'EF OC a6 DO 057A 710 MOVL  LKBSL“PID(R6) PIB 
f ng 3; Lock state and mode(s) 
36 Ag 95 05 714 TSTB KBSB_STATE(R6) 
3 19 05 715 BLSS 208 3 Waitin 
26 «14 387 is BGTR 0$ :; Grante 
00000287"EF FC79 CF 9E 0589 71 MOVAB CV_STRING,STATE1 
OOOOO2ZAS"EF FC65 CF 9E 0592 718 MOVAB GR STRING, STATE2 
as A 0598 719 MOVZBL LK6$8 GRMODE (RG) .RO ; Get granted mode 
OOOOO2AB"EF FC21 CF4 i 59F 720 MOVAW LOCKMODE TBLCROJ,MODE2 ; Store granted mode sting 
5034 a vA a? 4 1 mOVZBL LE GSB _RORODE (RG) .RO ; Get requested mode 
00000287 ' EF FC4B CF QE OSAF 7 : 108: MOVAB GR_STRING,STATE1 
50 3 AG 9A 388 , , MOVZBL LKBSB_GRMODE (RE) ,RO 
00000287"EF FC 2 CF 3 Bf 7 $ 208: MOVAB WT STRING STATE! 
50 M6 9A O50? 7 MOVZBL LKB$B_ROMODE(R6),R 
AS EF FC ; CF 69 «6(05CB. C7 8 25$: §§MOVAB NULL CSTRING, STATE ; No state 2 
1ha8s AB'EF Fs CF E D4 7 MOVAB BLANRS,MODE ; No mode 2 
2BF'EF FBES CF40 3€ 200 g 9 30S: MOVAW LOCKMODE_TBLCROJ,MODE1 : Store mode 1 
sf , ¢ ; Blocking AST 
000002BB'EF FC37 CF 9 7 736 MOVAB NULL_CSTRING,BLKAST ; Assume no blocking AST 
7 st A o5 i , 5 Pit LKBSC BLKASTADR (RE) ; Is there a blocking AST? 
OQOOO002BB"EF FC2A CF 9E i 4 $ MOVAB BL_STRING,BLKAST :; Yes, store address of string 
, =. 5 ; Flags 


— 


' - Page 
- 231: AX/VMS Macro V04 90 ag 79 
RCE FORMATTING routines 1 ~SEP-1 4 : 1:3 2: (93, 
y Lx o00 ORNAT LOCK FORMAT LOCK DATA g-36F 1382 83:35:28 YODA SRCILOC 
FC20 CF 9 FE 9 328 MOVAB i" Ub STING AS ; Initialize fields 
Tet DO Seok a8 ROVE RS-FLAGSI +4 
Me f D : 44 MOVL R3,FLAGS1+8 
ha 
ay DO 0696 i MOVL RS, FLAGS¢+8 | 
Hit d 0 4 MOVL RS,FLAGS 
as Ee 634 tt MOVL R3.FLAGS3+4 
8 ‘EF DO Oe , v R3.FLAGS3+8 
t ; Pick up flags 
33 $8 6 He i 4 nOvaL Leora heen che “RS ; Address of Ist arg. List 
=, Coven i bE op 754 CLRL : 
pT bee P32 giet ; Br. if flag not set 
27 abd a 5 re ; 5 vit SOVAG FCAGS SBLER3I,(R4) ; Store appropriate string address 
* ie 3 ch $38 re inet Ne ; Incr. position counter 
i pe o2 28 tte R2,#3 : Move to 2nd Line? 
“ Q 4 3; No 
93°eF if re re) SOVAL cheese M6 3; Yes 
a ee i ree 768 One gos ; Move to third Line 
06 D1 06 764 408: CMPL R2, #6 4 
oF OOF 4 ree ROYAL AGS Ra : Yes Ps 
’ ; me 
” Se 5S Ps ora res 60$: AOBLSS *5-R ,35$ 3; Repeat 
ore 770 PART2: 
gre 77 3; Status 
re TRING R3 ; Initialize fields 
ooo0o203"Er” $5 Bh ORES ars MOVE” RSCSTS? 
DF Er DO O6BA OPP MOVL R3.STS1+4 
80000908: EF DO 0691 77? MOVL RS. STSI+8 
rr BE BO Ge9e 7h OWS TSR" 
FB EF BD GAs 780 MOVE — RS. ST S248 
a a 
ibe 6B 7 5 MOVL R3,STS3+8 
tee MOVZWL LKB$W_STATUS(R6) RS ; Pick up status ' 
30 gaeee Hw : ; MOVAL S$TS1,R4 ; Address of ist arg. List | 
Beer ee | 
bY , } $: BBC ni R5,60$ ; Br. if flag not set et eae 
2 eee 4 4 5 0 oe MOVAQ STATUS_TBLCR32, (R4) ; Store appropriate string | 
? est : ch 133 tNet + Nao ; Incr. position counter | 
p 38 Lape Re #3 S Rove'te and Linet | 
mows TR Bk He. 13 
¢ ih 28 196 BR 808 
j 


Bia 
06 
s+ OnE ES 


eee 0000006 
00 


60 20 


pee 


i 


03 5 


00A 
EF 00001BA'EF 
EF 00 Hh 
EF 1D8°EF 
E 


F 000001C8'EF 


50 00000068" EF 
1F 20-6 04 
00000887 "EF 


QOOOOSSS"EF  FABC fr 


00000333°EF FAR? CF 
50 8 A6 


65$: 


70$: 
80$: 


6 
ORMATTING ROUTINES 1978 
T LOCK DATA S 


woo 


E 
E 
CMPL = R2, #6 

BNEQ 6¢ 

MOVAL $183 Ré 

AOBLSS #9,R3,35$ 


a - 7 --— = 


¢ SHAE WsSatecitee atest? Pe 


; Move to third Line 
3; No 


Yes 
; Repeat 9 times 


: Resource name, length, access mode, and name space 


MOVZBL RSNLEN_BFR.RLEN 
MOVZBL RSNLEN-BFR.R 
SNAM_BFR,RO 


PUSH 6 
MOVC R1, (RO) ,#0,#32, (RO) 


$s 
3 
$ 
5 
$ 
$ 
7 
$s 
$s 


on Ow fw fw 


AO_GROUP 
BLBS  R0,65$ - 

B 90$ 

MOVW  GROUP_BUF ,GROUP 


MOVAQ GROUPDSC,NSPACE 
MOVAQ SYS_DSC,NSPACE 


MOVL  RSBCSID_BFR,RO 

BNEG : Mus 
BBS #LKBSV_MSTCPY,LKBSW_STATUS(R6 
MOVAB LOCAL, t 
MOVAB SPACE ,RMINFO 

BRB 8$ 

MOVAB PROCESS, TYPE 

BRB 86$ 


MOVAB MASTER, TYPE 
MOVL LKB$L_CSID(R6) RO 


BFR,R 

bE TBC PROD .ACMODE 
_BuF 

R =F i 

F = GROOP_BUF~ 


. NUM 
MOVB GROUP_ BUF +2 ,GROOP_NUM+2 


Restore RO 


3; Get access mode 


; System names have group = 0 
; Branch if system name 

DSC,- 
DSC,- 


; Format type of lock and remote lock info. 


; Get CSID 

t be process copy 

»,84$ ; Branch master copy 
; Set type of lock 

; Display no remote info 


3; Set type of lock 


TE fel 


| 
i 
Save RO 
Zero out rest of buffer 


- 


v0. 


Spee 


oa 
So Cc 
on cloud 
t +. = 
3 rr 
>= 
. 7 
ou 6 6O ” 
tv - vu 
vo ” 
so. « 4 
zm v bad 
. os 
“oa ° 
zm ~ 
>: & 
.< . 
xa » 
=m a 
S>u 
. gw 
i= 
ao °o 
mwa a heen 
—“—- © ” 
—™ 
wwe oot “* 
“- ** ee 
me i 
oo ” 
one _ 
war = tes z 
ono cOoOwZz Ld 
an we UY a 
er aZaW oo 
im) oO- 68 uu 
aa g£zOoo zz 
ww ~uu —— 
“un a G2 == 
(+6 =O ca 
on wees > 2 
_ —u. Oe aoe ze 
= a wa 
whut s. =) Ss) 
a -oO ae 
&u Zecwoo 


we DD WOE -— 
—wvo0aacca 
” 
4 @ 
jo vet wi 
>< a>o>r> >rF 
re joo Ow 
A azz sa 
A AA 
oO oo 
[- oe) aon 


OCK AND RESOURCE FORMATTING routines 


R 
FORMAT LOCK - FORMAT LOCK DATA 


04-000 


K 
LOCK LOCK AND RESOURCE FORMATTING ROUTINES 16-SEP-1984 01:31:38 VAX/VMS Macro v04-00 P 
10c<000 PRINT_LOCK = Bos But LOCK DATA met 7 84:35:38 Ye each sce Manes _ (i) 
: ees 1SBTTL PRINT LOCK = OUTPUT LOCK DATA 
i ; PRINT_LOCK 
es : PURPOSE 
3 ; OUTPUT FORMATTED LOCK DATA, LINE=BY=LINE. 
75: INPUT 
id FORMATTED LOCK DATA 
£8 > OUTPUT 
79 : DISPLAYED DATA 
ane 
0000 085 : ’ .ENTRY PRINT_LOCK,“M<> 
ae 
eS 5 > LINE 1 
gooeg7e er pp GHSE HA” push. LAGSIe8 
00000 ree DD ri Hy PUSHL FLAGS1 
SSS8Ger BB Rise Pus FI 
87 3 PRINT be rock id: !XL PID: 'XL Flags: !3(8AC)> 
93; LKID PiD FLAGS1 
Sas 
6 36 ; LINE 2 
00000 9B EF DD 98 * PUSHL FLAGS2+8 
00000297'EF DD 9 899 PUSHL FLAGS2+4 
00000293'EF DD F 900 PUSHL FLAGS 
edt TAO ee pusnt Bo. 
SSUES Be RE BS Ela 
A 308 PRINT 7,<Par. id: '!XL  !13AC !AD!12® !3(BAC)> 
see i ; PARID STATE] MODE1 FLAGS2 
6 908; 
6 st ; LINE 3 
ooooze7"ér pp o8Be ott | PUSHL FLAGS3+8 
00 02B3'EF DD 312 PUSHL FLAGS3+4 
SSA; BB BREE gi FURIE Ae 
6D DD O8C¢ 15 PUSHL @# 
00000243, EF DD 06 if PUSHL STATE2 
0000029F "EF 0D 08D 1 PUSHL SUBLKS 
o¢ 18 PRINT 7,<Sublocks: !7UL !13AC !AD!12* !3(8AC)> 
E 19 ; SUBLKS STATE2 MODE2 FLAGS 
34 
£9 > LINE 3A 
E9 gi 


LOCK LOCK AND RESOURCE FORMATTING routines 16-SEP-1984 01:31:38 VAX/VMS Macro V04-00 P 4 
104~000 PRINT.LOCK = OUTPUT LOCK DAT Breer e be Obisaiee PARAMaS acre Ono age 3) 
00000288 EF DD E9 4 PUSHL  BLKAST 
OcBF'EF 0D F 5 PUSH K 
F 5 PRIN ,<LKB: ‘XL = !9AC> 
; : LKB  BLKAST 
9 Ss 
2 : : LINE 4 
OO00002DB'EF od 09 , PUSHL $1S1+8 
09009 Do EE DD 09 § PUSHL $T$1+4 
O0002D3"EF 0D O90E 4 PUSHL §TS1 
00000 Cree DD 0914 5 PUSHL  DMP1 
8 DD O9IA é PUSHL 4&8 
900002¢7 EF DD 091 9 PUSHL RES1 
Q00002C3"EF Be 09 3 2 PUSHL  RES2 
+] g PRINT 7,<Resource: '¥L IML 'AF Status: '!3(8AC)> 
9 940 ; RES RES1 MP1 STS1 
9 941 
9 yh 
935 943; LINE 5 
935 860944: 
00000 FBvEF DD 09 5 945 PUSHL $T1$2+8 
OOOO2F7'EF DD 0938 946 PUSHL S$TS2+4 
QOOOO2F3'EF OD 0941 94 PUSHL STS 
QOOOOZEF'EF 0D 0947 948 PUSHL DMP 
08 DD 0940 949 PUSHL 4&8 
QOOOO2E7"EF DD O94F 950 PUSHL  RES3 
O00002E3 ‘EF DD 0955 951 PUSHL  RES4 
QOOO02DF'EF DD 0958 93¢ PUSHL RLEN 
0961 95 PRINT 8,< Length !27B8 !XL !XL ‘AF '3(BAC)> 
966 954; RLEN RES4 RES3 DMP3 §TS2 
96& 955 
96E 228 3 
96 957: LINE 6 
966 958: 
00000318 EF DD 96E 959 PUSHL  $TS3+8 
00000317"EF DD 0974 960 PUSHL  STS3+4 
00000313"EF OD O97A 961 PUSHL STS 
QO000030F "EF DD 0980 36¢ PUSHL DMP 
08 oD 09 6 96 PUSHL #8 
90000307 ‘EF DD 09 964 PUSHL RESS 
00000303'"EF DD 09 : 965 PUSHL  RES6 
OOOOOZFF'EF DD 099 966 PUSHL ACMOD 
99A 36 PRINT 8,< '11AC)  !XL IXL ‘AF t3(BAC)> 
9A7 (968: ACMODE RES6 RESS DMPS STS 
9A7 969 
9A7 ary i 
9A? 971: LINE 7 
9A7 3¢ ; 
0000032F *EF DD O9A7 97 PUSHL DMP7 
8 DD O9AD 97% PUSHL 4&8 
00000327'EF 0D O9AF 75 PUSHL REST 
0000323'EF 0D 0985 A: PUSHL  RES8 
OOCOSIF'EF DD 988 7 PUSHL NSPACE 
9C A: PRINT 5,< 'T1AS 9 XL EXEL 'AF> 
ace 43 : NSPACE RES8 RES7 DMP7 


LOCK Lock AND RESOURCE. FORMATTING ROUTINES _ Ha tS 94 gt: 33: i At sre A 


v04-000 RINT_LOCK = OUTPUT LOCK DA SDA.SRCILOCK.MAR: 
C : 
i ; LINE 8 
90000337 (EF bd 09¢ 4” PUSHL RMINFO 
‘EF DD 09D 5 PUSHL TYPE 
ODA : PRINT 2,<!AC copy !AC!/> 
9£7 : TYPE RMINFO 
04 O9E7 988 RET 


22 
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RESOURCE FORMATTING ROUTINES 1 mets 04:33:38 Aa Macro yoaeve Page 
D.HAND = CONDITION HANDLER FOR S 5=SEP=1984 03:52:4 SDA.SRCJLOCK.MAR; 


. ~SBTTL LOCK_COND_HAND = CONDITION HANDLER FOR SHOW_ALL_LOCKS 


¥O6<000 


+ 


LOCK_COND_HAND 


AND 
_CON 
E 9 
E 3 ety 
Bh: 
368 80u | 
9E 99 : PURPOSE 
9£ 6 : PROVIDE EXIT PATH FOR SHOW_ALL_LOCKS WHEN THERE ARE NO MORE LOCKS 
3E 9 : 0 BE PROCESSED 
9E 3 + INPUT 
968 1000 : 4(AP) = POINTER TO SIGNAL ARGUMENTS 
3 1: 8(AP) = POINTER TO MECHANISM ARGUMENTS 
968 1 : > OUTPUT 
968 1004 : POSSIBLE MODIFICATION OF STATUS; POSSIBLE CHANGE IN FLOW 
9E8 1005 ; OF CONTROL. 
aE 
001¢ O9E8 1008 . .ENTRY LOCK_COND_HAND, “M<R2,R3,R4> 
52 04 AC 7D S3EA 1010 mova AAP), R2 ; GET ADDRESSES OF ARRAYS 
54 04 A2 DO O9EE 1011 MOVL  CHFS$L’SIG NAME (R2) , R4 > GET CONDITION NAME 
54 00000000" 8 D4 Hi 1g CPL sss $_ONWIRD, ; hie ME UNWINDING? 
54 00000000°8r D} Ha 1014 CMPL § #MSG$_OUTOFRANG,R4 DID WE GET THE SIGNAL WE'RE LOOKING FOR? 
28 («12 Age 13 BNEQ 208 : IF NEQ, NO = PASS IT ON 
00000000'EF D5 DAd4 it Ist LOCK COUNT ; DID ve PROCESS LOCKS? 
aad 1918 SIGNAL 0,NOLOCKS : DISPLAY INFO MESSAGE 
0c As 50 D0 Ale 1021 10$ MOVL RO,CHFSL_MCH_SAVRO(R3) ; INDICATE SUCCESS AFTER UNWIND 
7E 7C OA22 1 é CLR. = ( §P) : GO BACK 10, Est ABLISHER 
00000000'GF 02 FB OA24 1 CALLS #2,G*SYSSUNWIND : UNWIND CALL FRAMES 
04 A : 4 ET + RETURN fo" ESTABLISHER 
50 0000'8F  3¢ OA ae 6 20$:  MOVZWL #SS$_RESIGNAL,RO : RESIGNAL CONDITION 
04 0A31 102 RET 


OUTER LOOP CONTROL 


FUP eee ee 
oS 
bod 


A2 54 00000190'EF AOBLSS HTBL_CNT,R4,10$ ; INCREMENT INDEX, LOOP IF LSS 


8 7 
Lt 3k LOCK AND RESOURCE FORMATTING ROUTINES  16=SEP=1984 01:31:38 VAX/VMS M V04- 7 
v04-000 SHOW_ALL_RES = ACTION ROUTINE TO DISPLAY 5-SEP-1984 $4: 35:28 SDA ERCITOCR.MARST” ee (95) 
A 3 se .SBTTL SHOW_ALL_RES = ACTION ROUTINE TO DISPLAY ALL RESOURCES 
A321 : 
A : SHOW_ALL_RES 
A32 1034 : PURPOSE 
A 19 $3 MAIN ROUTINE TO PROCESS THE ‘SHOW RES/ALL'’ COMMAND 
A321 § + INPUT 
“ ! 8 : NONE 
OA 1 40 : OUTPUT 
A320 1041 : DISPLAYED DATA 
AS ie: 
001C Ni 4 . .ENTRY SHOW_ALL_RES, *M<R2,R3,R4> 
FSDD 9F OA34 104 PUSHAB RES_HEAD ; SET UP HEADING 
a A PP 
mn D4 0A45 1049 CLRL 4 + INIT HASH TABLE INDEX 
soraevenan * a ete Ad? 1050 REQHEN aLCKSGL » HTBLCNT, »R2 : GET COUNT OF ELEMENTS IN HASH TABLE 
53 QO000000'EF DO OASF 1058 MOVL  LCKS$GL rate R3 : GET ADDRESS OF START OF HASH TABLE 
105 REQMEM (R3),R% : GET FIRST ELEMENT 
oS ibes 
A 1056 : INDEX THROUGH HASH TABLE, LOOKING FOR HASH CHAINS 
1058 10$ 
52 6344 1059 MOVAL  (R3)CR4],R2 : GET HEAD OF CHAIN 
1060 REQMEM (R2),RSB : GET FIRST RSB ADDRESS 
000001EB' EF 1061 TSTL SB : IF ZERO, EMPTY CHAIN 
3A 1068 BEQL 208 
Hf 
1065 ; SEQUENCE THROUGH HASH CHAIN 
1908 iss 
00000115 'EF 1068 INCL RES NCREMENT COUNT 
1069 REQMEM ans RSE BFR, ARSBSK _MAXLENSRSBSK LENGTH ;SAVE RSB DATA 
00000862 EF 00 1070 CALLS HOW_RSB ; DISPLAY RSB 
00 ‘EF 00 1071 CALLS SHOW ~ QUEUES : DISPLAY QUEUES 
000001EB'EF  0000011D'EF 1 ; MOVL 4 Ae : GET NEXT RSB 
C6 1 BLSS 
1074 
8 
HH 
1999 
1080 
1 
1088 
1084 
1085 


CoOOoCoON O88 NIN SS NNN 


00000115"EF TSTL —- RES_COUNT : DID WE PROCESS ANY RESOURCES? 
08 BEQL © 308 : IF EQL, NO 
STATUS SUCCESS : SUCCESS RETURN 


7 
LOCK LOCK AND RESOURCE FORMATTING ROUTINES 19 p= 88e Bt: 33: 738 VAX/VMS Macro voenye Page #8 
v04-000 SHOW_ALL_RES = ACTION ROUTINE TO DISPLAY 5=SEP=1984 03:52:46 (CSDA.SRCIJLOCK.MAR;1 (15) 
AEO 1 § 508: 
AEQ 1 SIGNAL 0,NORESOURC ; NO RESOURCES DISPLAYED 
04 OAF2 1088 RET 


» 
=z 
‘A 


DDD 
22 
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LOCK LOCK AND RESOURCE FORMATTING ROUTINES 1¢- S6p-1 906 01:33:38 AX/VMS Macro v06=00 Page 29 
v04-000 SHOW_ALL_RES = ACTION ROUTINE TO DISPLAY 5=SEP=1984 03:32:46 [SDA.SRCIJLOCK.MAR; 1 (16) 
AF3 1090 
Ar | 4 -SBTTL SHOW_ONE_RES = ACTION ROUTINE TO DISPLAY ONE RESOURCE 
AFS 1 38 ; 
AF3 1094 ; SHOW_ONE_RES 
AF3 1095; 
AFS 1 36 3 PURPOSE 
a } a 3 MAIN ROUTINE TO PROCESS THE ‘’SHOW RES/LOCK=Lockid’’ COMMAND. 
AF3 1099 : INPUT 
- 1191 3 LOCKID = ID OF LOCK WHOSE ASSOCIATED RESOURCE IS TO BE DISPLAYED. 
AF3 11 : : OUTPUT 
AF3 1103; DISPLAYED DATA. 
OAF 1194 3 
OAF3 1105 ;--- 
0004 ry 1196 -ENTRY SHOW_ONE_RES, “*M<R2> 
F949 CF 00 FB OAFS 1108 CALLS #0, Ale LKB ; GET LKB ADDRESS 
52 50 €9 OAFA 1109 BLBC : IF LBC, NONE EXISTS 
52 QO00002BF'EF DO OAFD 1110 MOVL 
B04 1111 REQMEM te RSB(R2), GET ADDRESS OF RSB 
0B15 116 REQMEM B,RSB_BFR, bres MAXLENSRSBSK LENGTH ; GET RSB DATA 
F4E3 CF OOF page 111 PUSHAB are BERD ; SET RSB HEADING 
OOO00000'EF 01 FB OB 1114 CALLS #1,SET_HEADING 
00000B62"EF 00 FB OB39 1115 CALLS 4#0,SHOQ_RSB ; DISPLAY RSB 
00000892"EF 00 FB pe58 1116 CALLS  #0,S'OW>QUEUES : DISPLAY QUEUES 
1118 STATUS SUCCESS 
OB4E 1133 RET 
1121 10$: SIGNAL 0,NOLKB 3 LOCKID NON-EXISTANT 
1122 RET 


7 
LOCK LOCK AND RESOURCE FORMATTING ROUTINES 16-SEP-1984 01:31:38 VAX/VMS Macro v04-00 
v04-000 SHOW_RSB = CONTROL FOR RSB DISPLAY ~SEP-1984 8333 :46 SDA ERCICOCK MaRS 
1124 .SBTTL SHOW_RSB - CONTROL FOR RSB DISPLAY 
as ig 
86 1 5 ; SHOW_RSB 
Boo 11 : : PURPOSE 
: 1 Q CONTROL THE FORMAT AND DISPLAY OF RSB DATA 
11 i + INPUT 
B6 1 33 RSB DATA STRUCTURES (IMPLIED) 
6 1135 ; OUTPUT 
6 i $; DISPLAYED DATA 
0000 6 1 8 j .ENTRY SHOW_RSB,“*M<> 
OOOOOBCC’EF 00 FB 0B64 1140 CALLS #0, FORMAT_RSB 
8 114¢ ENSURE 9 
00000D34"EF 00 FB OBBA 114 CALLS #0,PRINT_RSB 
0B91 1144 
04 0B91 1145 RET 


Sue a?) 


wef 


LOCK AND RESOURCE FORMATTING ROUTINES SEP-1984 01:31:38 VAX/ vis Macro V04-00 Page 31 
SHOW_QUEUES = DISPLAY QUEUES FOR GIVEN R oe} etsy 84:3 :46 Yea. SRCJLOCK.MAR; 9 . ib) 
1147 a .SBTTL SHOW_QUEUES - DISPLAY QUEUES FOR GIVEN RESOURCE 
B92 1149 ; 
89 1 ; SHOW _QUEUES 
. | 
92 1152 : PURPOSE 
B92 1153 ; DISPLAY NTIALLY THE GRANTED, CONVERSION AND WAIT 
92 1154: QUEUES hss TED WITH A RESOURCE. 
B92 1155; 
B92 11 : + INPUT 
9 1 : RSB = BUFFER CONTAINING RSB DATA 
3 11 : : OUTPUT 
92 1160: DISPLAYED QUEUES. 
92 1161: 
9 1168 — 
0000 0B92 116 .ENTRY SHOW_QUEUES, “M<> 
tie 
7E 10 0000018 "EF C1 0B94 1166 ADDL3 -RSB, pURSBSL _GROFL,-(SP) : GET ADDRESS OF GRANT QUE FLINK 
F BF DD OB9C 1167 PUSHL GRAN : IND GRANT QUE 
00000655" Efe 02 «=FB Sh 1168 CALLS # PROCESS _QUEUE 
7E 18 OQOQ0001EB'EF C1 9 1190 ADDL3 = RSB, HBsBsi _CVTQFL,=(SP) : GET ADDRESS OF CONVERT QUE FLINK 
90 DD 1 1171 PUSHL acony + IND CONVERT QUE 
QOOOOESS'EF 02 FB 3 1178 CALLS # PROCESS _QUEUE 
7E 20 O00001EB’EF C1 A 1174 ADDL3 SB, #RSBSL_WTOFL,-(SP) : GET ADDRESS OF WAIT QUE FLINK 
01 OD OBCe 1175 PUSHL : IND WAIT QUE 
QOOOOESS'EF 02 FB OBC4 1176 CALLS #2,PROCESS_QUEUE 
088 1177 
04 OBCB 1178 RET 


———_—_—_——_—_} 
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LOCK LOCK AND RESOURCE FORMATTING ROUTINES 16-SEP-1984 01:31:38 VAX/VMS Macro v04-00 P 
40c<000 FORMAT_RSB = FORMAT RSB DATA eet 83:3 46 SDA ERCTOCK MARS 7 3) 
Bce 1 0 .SBTTL FORMAT_RSB = FORMAT RSB DATA 
€¢ 11 é : 
ect 1 33 FORMAT_RSB 
BCC 1185 : PURPOSE 
ect 1 : ; FORMAT RAW RSB DATA, STORE FOR EASY ACCESS LATER ON. 
¢c¢ 11 8 : INPUT 
ate 1 ; RSB_BFR = BUFFER CONTAINING RSB DATA 
aa 1131 : OUTPUT | 
cc 1138 : STORED DATA. 
CC 1194 fe-- 
OOFC pct 1195 .ENTRY FORMAT_RSB,“M<R2,R3,R4,R5,R6,R7> 
56 O000011D'EF  9€ 1197 MOVAB RSB_BFR,R6 ; GET ADDRESS OF DATA BUFFER 
D 1199 : 
D> 90 : FORMAT RESOURCE NAME 
57 50 a6 9E pe 1 03 ‘ MOVAB RSBST_RESNAM(R6) ,R7 ; LET R7 POINT TO RESOURCE NAME 
50 6 4F A6) «609A «(OBD9 120 MOVZBL RSB$B-RSNLEN(R6) ,RO + ZERO OUT UNUSED PORTION OF BUFFER 
67 20 67 50 2 Dp 1204 MOVCS RO,(R7),#0,#32, (R7) 
00000227'EF D e3 1 05 MOVAL (R?),BUF1 
QOOOO2TF'EF 87 OD EA 1 : MOVL (R7)+,RESN1 
$0096 16° EF 5 a i 08 MOVAL (Rr) cr 
00000 3: EF br 06 OBFF 1209 MOVL  (R7)+,RESN3 
0000 Fe 7 DO 0C06 1210 MOVL  (R7)+ RE SNA 
O000253°EF 67 DE Of0D 1211 MOVAL  (R7),BUF 
4B er 87 06 C14 1 1 MOVL  (R7)4+,RESNS5 
poosnsee'Er By tas 151% mOVAL (RP) Buran 
00000 oS .er 87 DO 0C29 1215 MOVL (R7)+,RESN7 
0000025F "EF 87 DO ¢ 9 16 MOVL (R7)+-RESNB 
(37 1 18 ; 
c , 19 : FORMAT RSB 
1F3'EF 48 A6 DO OC37 1221 ° MOVL §RSBSL_PARENT(R6) ,PRSB 
1FB'EF 40 A6 Hi C3F 1 : MOVZWL RSBSW-REFCNT(R6) .SRSBCT 
DOOOOIFF'EF 42 AG C47 1 MOVZUL RSBSU-BLKASTCNT(R6) BAST 
1000020F ' EF A6 DO OC4F 1226 MOVL SB$Q~VALBLK (R6) , VAL 
000080R EF eC AG DO C57 1¢85 MOVL = RSBSQ-VALBLK+4(R6) , VAL 
000207" EF A6 DO OCSF 1 : MOVL RSBSO-VALBLK +8(R6) VAL 
"EF A6 00 0C67 1 VL - RSBSQ"VALBLK+ (R65 VAL 
"EF ¢ M6 OD cor 1 3 MOVL §RSBSLVALSEQNUM(R6) , SEQNUM 
00 3F ' EF A6 p (77 1 VL —- RSBSL“CSID(R6),CSID 
F F6aC cr : C7F 1 0 MOVAB SPACE>VALID 
OE A 1 (88 1 BBC #RSBSV_VALINVLD ,RSBSW_STATUS(R6) ,15$ 
17°EF OF Q CF aE C8> 1 : MOVAB NOT VACID, VALID 
S7°EF =F 63 cf t (96 1 15$ MOVAB SPATE ,DIRENTRY | 
OE A f COF 1234 BBC #RSBSV_DIRENTRY ,RSBSW_STATUS(R6) , 178 
00000257"EF F633 CF SE OCAG 1235 MOVAB DIR_ENTRY,DIRENTRY 
51 0C A6 9A OCAD 1236 178:  MOVZBL RSBSB_GGMODE (RO) ,R1 | 
| 
| 
} 


sae er 
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LOCK LOCK AND RESOURCE FORMATTING ROUTINES SEP=1 AX/VMS Macro vO4~90 Page 33 
Oe <000 FORMAT_RSB = FORMAT RSB D "er -SEP- sine gf: 33:28 SDA. SRCJLOCK.MAR; 1 . (ia) 
QOOOOIEF*EF _FS1B CF41 po CB1 1237 mov LKMODE erBktRt] GGM 
1 OD As A O0CBB 1 MOVZBL RSBSB RODE (AG) RN 
QOOOO1F7°EF —FSOD CF4 p (BF 1 MOVL LERODED fBL 13,CGM 
51 4 Ag CC9 104 MOVE  RSB$B_RMO Ro) Rn 
wen 8888 EE F646 CF4 CCD 124 MOVL ACMODE TBLCR1J.RA 
0 2B'EF 4F AG 9A OCD? 124 MOVZBL RSBSB RSWL ENCR ) ACESNLEN 
9 9001¢8' EF CDF 124 MOVAQ SYS_DSC AC 
4C A6 8 CEA 1244 MOVW RsBSw_ GROUP CA ,GROUP_BFR 
3F cre 1245 eal so9 
CFS 1 46 FAO_S CTRSTR = FAO_GROUP PSC. 
CF4 124 GuTBUF = GROOP_BUF-DSC.- 
CFA 1 48 P1 = GROUP_BFR 
2150 €9 ODOF 124 BLBC ~—_- RO, 908 
900001E8 EF QO1BA EF 0 Di2 1 20 MOVW GROUP BUF F - GROUP. NUM 
JEA‘EF 1BC EF DID 1251 MOVB GROOP_NUM+2 
00000258 ' EF O1DS'EF 7E p 3 MOVAQ GROUP BSc. RNSPACE™ 
D33 1254 90S: 
04 0D33 1255 RET 


7 
LOCK LOCK AND RESOURCE FORMATTING ROUTINES 16-SEP-1984 01:31:38 VAX/VMS M 4- 
40%~000 PRINT_RSB = OUTPUT RSB DATA ~SEP-1984 8h: 746 aoa ERC OCR MARST wetaee 38) 
p 4 t , -SBTTL PRINT_RSB = OUTPUT RSB DATA 
D34 1259 : 
p 4 : PRINT_RSB 
p34 1 : : PURPOSE 
p ‘ | 9? ; OUTPUT RSB DATA, LINE-BY-LINE. 
D34 1265 : INPUT 
4 r 96 ; FORMATTED DATA. 
D341 8 + OUTPUT 
p34 «1 : DIPLAYED DATA. 
p34 «CO 93 
be 1592 
0000 0034 1 ig ENTRY PRINT_RSB,“M<> 
Ds 1578 
p 6 id: > LINE 1 
SOOORTEE Er BB RBae iste PUSHE = RSB 
0045 1280 PRINT 2,<Address of RSB: !XL Group grant mode: 'AC > 
D4F 1281; RSB GGMOD 
bar 1988 
D4F 4 > LINE 2 
SOOOOTEESES BB BBOE Ieee PUSH PRB. 
D5B 1288 PRINT 2,<Parent RSB: 'XL Conversion grant mode: !AC > 
D68 1289 ; PRSB CGMOD 
bes 199) 
06 36 > LINE 3 
ty a oe PUSHE  SRSBCT 
pee 1 39 PRINT 2,<Sub-RSB count: 'BUL BLKAST count: '8UL> 
D81 1297; SRSBCT BAST 
BBY 1999 
p ? ; LINE 4 
17°EF DD OD81 1 : PUSHL VAL 
13°EF DD OD87 1 : PUSHL SEQNUM 
gree BB SBR 13 URE VA 
‘EF DD OD 1 $ PUSHL VAL 
3°EF DD OD9F 1 PUSHL VAL 
DAS 1 $ PRINT “Value block: ‘!XL 'XL 'XL_ 'ML = Seq. #: !XL !AC> 
+4 ! 6 3 VAL4 VAL3 VAL2 VAL1 SEQNUM VALID 
DB2 1311 ; 
DBe 1 13 3 LINE 5 
DB2 1515; 
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LOCK LOCK AND RESOURCE FORMATTING ROUTINES 16-SEP-1984 01:31:38 VAX/VMS Macro V04-00 Pa 5 
18e 000 PRINT_RSB = OUTPUT RSB DATA Set yy 84:33:28 EEDA SRCILOCK MAR: 9 (30) 
00000227"EF DD ODB2 1314 PUSHL  ®BUF1 
8 DD Tt} 1315 PUSHL a8 
0000031F ‘EF DD ODBA 1 1 PUSHL ESN 
OO21B'EF DD ODCO 131 PUSHL ESN 
oc 131 PRINT 4,<Resource: 'XL IXL 'AF > 
DD3 1319; RESN2 RESN1 BUF1 
po3 1 
po3 1 : 
44 ! § : LINE 6 
QOOOO23F'EF DD ODD3 1324 ° PUSHL ‘SID 
00000888" Ft DD ODD9 1325 PUSHL Bure 
8 DD ODDF 1 : PUSHL # 
90000 3'EF DD ODE1 1 PUSHL RESN3 
OOOO22F'EF DD ODE7 1 8 PUSHL RESNG 
0000022B"EF DD ODED 1 PUSHL RESNLEN 
DF3 1330 PRINT 6,< Length !2UL  !XL !XL ‘AF CSID: !XL> 
3 1; RESNLEN RESN& RESN3 BUF2 CSID 
E00 1 § , 
3 ! : 3 LINE 7 
00000257'EF oD O£00 1 : PUSHL DIRENTRY 
00000253'EF DD O0E06 1 PUSHL BUF 
08 oD OE0C 1 8 PUSHL @ 
00000 4B EF DD OEFOE 1 PUSHL RESNS 
00000247"EF DD 0€14 1340 PUSHL RESN6 
00000243'EF DD OEIA 1341 PUSHL RACMOD 
E20 1 4¢ PRINT 6,< '11AC) IML XL ‘AF 'AC> 
: - 43 : RACMOD RESN6 RESNS BUF3 DIRENTRY 
E2D 1345; 
E2D 1 46 ; LINE 8 
E2D 1347: 
0000026B'EF DD OED 1 48 PUSHL BUF 4 
08 DD OE33 134 PUSHL # 
00000 5: EF DD OE35 1 30 PUSHL RESN7 
QOOOO025F'EF OD O&3B 1351 PUSHL RESN8 
0000025B'EF DD 0&41 1 3 PUSHL RNSPACE 
£47 135 PRINT 5,< !11AS !XL XL 'AF> 
E94 1354 ; RNSPACE RESN& RESN7 BUF4 
£54 1355 
04 0&54 1356 RET 


N 
$s 
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t Fe pes MAP ROUTINES 1g-sbb= 1386 04:33:38 Aa Macro 7 Page (3) 


Lore Eock 
v04-000 ROCE JE = TRAVERSE RESOURCE QUEUES SDA.SRCIJLOCK.MAR 


o 
Cc 


-SBTTL PROCESS_QUEUE = TRAVERSE RESOURCE QUEUES 


PROCESS_QUEUE 


PURPOSE 
TRAVERSE AN IN 
DISPLAYING ITS 


INPUT 
4(AP) = QUEUE TYPE, WHERE: <1: GRANT 


Sete Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Se Ge Ge Ge 
ca 


DIVIDUAL RESOURCE QUEUE, FORMATTING AND 
CONTENTS. 


£55 1 
655 : 
655 1 
655 
e554 
Fae 13ez 
£55 1365 
He 1s 
655 1 68 
: $9 : CONVERSION 
i ft B(AP) = ADDRESS OF HEAD OF QUEUE 
655 137 OUTPUT 
3 rh DISPLAYED CONTENTS OF QUEUE 
O3FC 3 .ENTRY PROCESS_QUEUE ,“*M<R2,R3,R4,R5,R6,R7,RB,RO> 
54 QOO001A2"EF 9 0657 137 MOVAB LKID_BFR,R4 : GET ADDRESS OF LOCKID STORAGE BUFFER 
55 QOO0019C'EF  9€ Ede 1380 MOVAB GRMD~BFR.RS : GET ADDRESS OF GRANT MODE Burren . 
56 009001 9F *EF 9€ 0665 1381 MOVAB ROMD"BFR.R6 : GET ADDRESS OF REQUEST MODE BUFFER 
5 58 Ac 06 ae é MOVE B(APY Re + GET ADDRESS OF HEAD OF QUEUE 
00000119°EF 04 OE73 1384 CLRL  QUEUE_COUNT ; INIT COUNT OF QUEUE ITEMS PROCESSED 
00000198 ' EF sa" AC D0 134 85 HOVE 4 (AP) “QUEUE. TYPE : GET TYPE OF QUEUE ‘ 
57 00000198'EF 01 (Ci OE84 1 ADDLS #1,QUEUE_TYPE,R7 
57 F1IBD CF47_~—iO0 OE g 8 HOVE Qué _STR_TELCR?].R7 : GET HEADER FOR THIS TYPE OF QUEUE 
EAA 1390 SKIP 
EBS 31 PRINTD R8,(R7) ; DISPLAY IT 
ERE 1 98 ; 
OEBE 1394 : INIT FOR SCAN OF QUEUE 
EBE 1395 : 
53 4 EB 36 10$: CLRL = RB 
EC 1338 : 
EC 139 ; GET QUEUE ELEMENT 
ECO 14 ° 20$: REQMEM (R2),R2 : GET QUEUE ELEMENT 
52 59 o1 OECC 14 ‘ CMPL R9,RO > AT END OF QUEUE? 
D 13 Ect 1403 BEQL 308 : IF EQL, YES 
ED1 1405 ASSUME LKBSL_SQFL-LKBSL_LKID GT 0 
ED) 14 6 ASSUME LKBSB"ROMODE-LKBSL_LKID EQ 4 
ED! 14 ASSUME LKBSB~GRMODE-LKBSL“LKID EQ 5 
90000119" EF D6 OED1 14 § INCL. QUEUE_COUNT : INCREMENT COUNT 
5 2 08 C3 OED7 14 0 SUBL3 #cLKBSL SQFL-LKBSL_LKID>.R2,R8 ; GET START OF RELEVANT DATA 
at eens oe el REQREN (RB) LKB BFR. #6 ; SAVE 16, GRANT & REQUEST MODE 
gts 67 06 ers 1218 MOVL LKID_OFE (RZ). (RG ERS) ; MOVE INTO STORAGE BUFFERS 
6543 05 A7 EF? 1414 MOVE § GRMD“OFF(R7).(RS)CR 
| 


LOCK AND RESOURCE FORMATTING routines -SEP=1984 4 Ot: 33:38 VAX/Vits Macro ¥04-00 Page 37 
PROCESS_QUEUE = TRAVERSE RESOURCE OheuES | -SEP=1984 ESD AL SRCILOCK.MAR; (21) 
6643 04 A7 90 EFC 1415 MOVB = ROMD_OFF(R7),(R6)CR3I 
BB 53 0 F2 OF } 1219 AOBLSS #3,R3,208 ; IF WE'VE SAVED 3 ITEMS, PRINT THEM 
00000F 28' EF te OF 1418 CALLS #0. PRINT_LINE 
BO 1 F ¢ 141 BRB 10$ ; GET MORE ITEMS 
00000F B' Bef FB F E 1421 30$ CALLS PRINT oliiNe : PRINT ANY REMAINING ITEMS 
000119" er DS OFIS 14 TSTL Ath ; : WERE ANY ITEMS PROCESSED? 
12 OFIB 14 BNEG FXI Nit IF NEQ, YES 
FID 1424 PRINT 0,< eee EMPTY QUEUE *##> 
FgA 1425 
04 OF2A 1426 EXIT: RET 


7 
LOCK LOCK AND RESOURCE FORMATTING ROUTINES 16-SEP-1984 AX/VMS Macro V04-00 P 
v04-000 PRINT_LINE = OUTPUT QUEUE DAT -SEP-1984 4 833 33:28 SDA ERCITOCK.MARsS “ (3) 
F2B 14 .SBTTL PRINT_LINE = OUTPUT QUEUE DATA 
SB 1480 
F B 14 : PRINT_LINE 
FOB 1433 : PURPOSE 
FOB 1434 : GIVEN LOCK DATA FOR ONE LINE (0 = 3 ITEMS), FORMAT AND 
FOB 1435 : DISPLAY THIS DATA 
FSB 1¢39 ¢ INPU 
FOB 14 : ; R3 = COUNT OF ITEMS TO DISPLAY 
FOB 1439 : R4 = ADDRESS OF BUFFER CONTAINING LOCK IDS 
FOB 1440 : R = ADDRESS OF BUFFER CONTAINING GRANT-MODE 
FOB 1441: = ADDRESS OF BUFFER CONTAINING REQUESTED-MODES 
FOB 1448 : BUEUE _TYPE = TYPE OF QUEUE WE ARE WORKING O 
oF 8 1207 : output 
oF B 1445: ONE DISPLAYED LINE OF QUEUE LOCK DATA. 
F2B 1228 3 
‘SB lec 
0180 OF2B 1449 .ENTRY PRINT_LINE, “M<R7,R8> 
OFSD 4454 
OF p 1436 : INITIALIZE 
eS ak a a 
01 33 F4 oF B 1456 SOBGEG 10$ : CONVERS TO ARRAY INDEX 
04 OF3E 145 RET : IF COUNT 0, NO ITEMS 10 DISPLAY 
Ofer qaee 
: r 1460 : FORMAT DATA 
57 0S OF3F 1468 ios: TstL aR? : ONLY FORMAT RQ MODE IF WAIT OR CONVERT 
09 #19 OF41 146 BLSS 15$ + QUEUE 
58 6643 «9A Fas 1464 MOVZBL (R6)CR32,R8 
F285 CF48 OD £4? 1465 PUSHL LKMODE_TBLCR8) 
57 0S OF4C 1409 15$: STL R? : ONLY FORMAT GR MODE IF GRANT OR CONVERT 
09 14 OF4 1468 BGTR 208 + QUEUE 
58 6543 oO9A FS 146 MOVZBL (R5)CR32,R8 
F278 CF4B «OOD F 1470 PUSHL LKMODE_TBLCR8] 
6443 DD £38 1478 20$: — PUSHL (84) £83] : PROCESS LOCK ID 
£0 53 F4 Ht 1478 SOBGEQ R3,10$ + IF NOT YET DONE, LOOP 
58 FODB Y F F 1675 NOVAB CONV. STR_TBL.R8 ; GET ADDRESS OF CORRECT FAO STRING TABLE 
5 1 reg 1499 EQL 4=s«258 : IF EQL, CONVERT 
58 FOC2 CF 9€ F68 1478 MOVAB LOCK_STR_TBL,R8 > ELSE WAIT/GRANT 
53 at act p rgb 14 0 258: mOvL COUNT AR = > PICK UP CORRECT STRING FOR NUMBER OF 
“y C 28 14 : ADDL R3.R f + CALCULATE CORRECT FAO ARG COUNT 
7 F7D 1484 BNEG 30% 


N 7 
FSR AOROASISE ROTI CEEEINEE UHURU Mtoe 


ADDL COUNT ,R3 

PRINTD r3,(r8) ; DISPLAY LINE 
RET 

«END 
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GROUP~BU 
GROUP” BUF _DSC 
GROUP” DSC 


GROUP 
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“SEP- 731: 4-00 Page 4 
OcK LOCK AND RESOURCE FORMATTING ROUTINES 16-SEP-1984 : 1:38 AX/VMS Macro vO ‘ vO 
Eynbot table ~SEP-1984 3:33:46 USDALSRCILOCK. MAR 1 (22) 
= 04 GROUP _TXT 1€0 R 
AeMODE 09 FF R 8 GR_STRING \tB 4 
ACMODE_TBL 18 R HTBL_CNT 190 R 
BAST 4 Fe R KMODE 2EB R 
BLANKS 6 20 R LCKSGL_HASHTBL aeeeeres . ; 
BLKAST R LCKSGL TBLCNT somone St ERE 
BL STRING R 0 LCK$GL~ meoseens: 
BUF 0 R 0 LEK SGt ARID ceensane hol ; 
SUE 4 8 attest ‘ Retkeeee x 3 
BUF R LINE_COUN cree 3 
Za Hi Btls come - aie 
CGMOD F7 R LKBSB_GRMO = b00000%% 
CHF $L_MCH_SAVRO = 0000000C att Ra = 00000086 
CHF SL_SIG_NAME = 00000004 LKBSB_STATE “ 44 4 8 
CONVERT = sei 4 LKBSK_LENGTH = BopokosS 
CONVSTR agago0c¢ : 63 tKBSC-tSID = 00000058 
CONVSTR1 e" 36 
QOOOOODF R 03 LKBSL_LKID = 000000 
CONVSTR 00000108 R 03 LKBS$L_OWNQFL . 09000040 
COUNT 00000194 R 2 LEBSL-PID = po09o0ee 
a a : HSSSe 
te an oe : BSS 
= 028 
DIRENTRY 090002 7R 02 LKBSW_FLAGS 00000 £ 
000002DB R 03 LKBSW_REF CNT = 0000004 
bapa tock Sane ge fe HER TANS * BES» ag 
* Q6C R 02 
DMP3 Go000zeF R 02 LKB_RSB_BFR 00000 
oe a sae y 
DONE 44s 'ene R 0 LKID_OFF St tees . 3 
— | al Ree 
EX 00000090 RG 0 
XIT QOOO00F 2A R 03 LOCKID 
He eae PE See Bete ST 8 
= ¢ QOOO06F R 
FLAGS! 00000277 R 02 LOCKSTRe 
ass Sa TEE a Sat. 
FLAGS_TBL 0000022A R 0 LOCK _COUN 
ae a Se ane ES 
GereckK 0000 a, n° 03 MASTER ~ 00000 cs R 83 
GET _LKB 000 0443 RG 03 MODE | 44 i . 8 
QOOOOIEF R 02 pops é oseter  & 
GRANT = FFFFFFFF MSG$_LOCKIDZER eet | 
GRANTSTR 8 141 R 03 sto) eos sane vant 
GRMD_BFR 4" R 02 ReGS WOPRLOCK Sananeus iu 
GROUP. BF é MSG$_NORE SOURC aeeneeee =X 
GROUP _BFR 44 4 S ekkeeere x 
P 1€O R 
1D8 R 8 
OO001E8 R 


gregerene 
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Ww 
= 
Ud 
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_TBL 


BFR 
CNT 
DSC 
LEN 
CGMODE 
GGMODE 


COUNT 
FR 
E 


QUEUE- TYPE 
TR 
D 
FO 
FO 
) 
AC 


RMINFO 


PROCE 
PROCESS 
PRSB 
PWRITE 
QUEUE 
QUES 
RMINFO 
RMIN 
RMIN 
RMOD 
RNSP 
RSB$B 
RSB$B 
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LOCK 
Psect synopsis SDA.SRCILOCK.MAR; 


peer ose sen eam cc oot 
: 
$eeeeeeeeeoeesecs + 


PSECT name Allocation PSECT No. Attributes 


. 00000000 < 0.) 0 ) CON LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

AB 4 ( 9 4 -) NOPIC USR CON ABS LCL NOSHR EXE RD 

SDADATA 0000033B ¢ f) ) ¢ ¢°3 NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC LONG 
QOOOOF92 ( 3986.) 0 -) NOPIC USR CON REL LCL NO EXE 

0000034C (¢ 844.) 04 -) NOPIC CON LCL NOSHR EXE RD NOWRT NOVEC BYTE 


+ a 
! Performance indicators ! 


geese eee e ee ewe Sew ano mame + 

Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.05 00:00:01.24 
Command processing 107 BO Ob he Fe Bp 8: 3-38 
Pass 310 00:00: 3-78 0:00:26.7 
Symbol table sort 0 00:00:0 $9 00:00:01.98 
ass 2 264 RS BTS 2 00:00:10.19 
Symbol table output 26 00:00:00.14 00:00:00.30 
Psect synopsis output 3 00:00:00.02 00:00:00.02 
Cross-reference output 0 es S18 ee ee bee 
Assembler run totals 741 0:00:10.8 0:00:44.44 


The york ing set Limit was 1650 pages. 

66655 bytes (151 pages) of virtual memory were used to buffer the intermediate yet 

There were 40 pages of symbol table space allocated to hold 660 non-local and 73 local symbols. 
1491 source Lines were read in Pass 1, produc ing 79 object records in Pass 2. 

26 pages of virtual memory were used to define 24 macros. 


+ 
: Macro Library statistics ; 


Macro Library name Macros defined 


-$255$DUA28: ood 081 1508. 18.1831 9 
“$255$DUA28: CSYS.OBJJLIB.MLB; 3 
$255$D0UA28: CSYSLIBJSTARLET.MLB;2 

TOTALS ‘all libraries) 21 


660 GETS were required to define 21 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:LOCK/OBJ=OBJ$:LOCK MSRC$:LOCK/UPDATE=(ENHS$:LOCK) +EXECMLS$/LIB+L1IB$:SDALIB/LIB 
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